2 I$="MOIN"
3 REM DAS LEBEN DES BRAIN PART I
5 REM PUBLIC DOMAIN SOFT
6 REM VON PETER DIEHM
7 REM GESCHRIEBEN 2/92
8 POKE 650,255:POKE657,128:PRINTCHR$(14)""
9 POKE 53280,0:POKE 53281,0:PRINT"[147]":A=1:GOTO 4000
10 REM UNTERPROGRAMM TASTE
11 PRINTSPC(30)"[154]-[212]ASTE-[146]"
12 GET F$:IFF$="" THEN 12
13 RETURN
50 REM INVENTAR
51 PRINTSPC(1)" [201]NVENTAR: [146]
52 [139] F[178]1 [167][153][166]1)"EINE ASCACKEL.
54 IF B=1 THENPRINTSPC(1)"EINE [193]XT.
55 [139] C[178]1 [167][153][166]1)"EINEN ASCISCH.
56 IF O=1 THENPRINTSPC(1)"EIN [207]ELLAEMPCHEN.
57 [139] E[178]1 [167][153][166]1)"ATNRMEEKASSE.
58 IF D=1 THENPRINTSPC(1)"[196]REIZACK.
60 [139] Z[178]1 [167][153][166]1)"EINE ATNNGEL.
62 IF L=1 THENPRINTSPC(1)"EINE [205]ETROPA [203]AFFEEMASCHINE.
63 [139] N[178]1 [167][153][166]1)"DIE NEUE (null)UBLIC !"
64 [139] M[178]1 [167][153][166]1)"EIN (null)EIL.
65 IF S=1 THENPRINTSPC(1)"EINEN [199]ROSCHEN.
66 [139] W[178]1 [167][153][166]1)"EINEN (null)RUG (null)EIN !"
67 [137] 100
80 [143] KOMMANDOS
81 [153][166]0)" NIMM,NEHME,LIES,LESE,ISS,ESSE,
82 PRINTSPC(0)" TRINKE,INVENTAR,INVENTORY,KLOPFE,
83 [153][166]0)" KOMMANDOS,BLICKE,BLICK,GEBE,GIB,LOAD,
84 PRINTSPC(0)" LADE,SAVE,SPEICHERE,SCHLAF,SCHLAFE,
86 [153][166]0)" BENUTZ,BENUTZE,FRAGE,GRABE,SAGE,SAG,
87 PRINTSPC(0)" SCHLAGE,SCHLAG,DRUECKE,DRUECK, N,S,W,
88 [153][166]0)" O,R,H,SICHER,SICHERN.
100 PRINTSPC(1)"[204]ETZTE [197]INGABE: "I$""
101 INPUT" [158] -=> [146] ";I$
102 IF LEN(I$)=2 THEN 138
103 IF I$="BLICK" OR I$="BLICKE" THEN 1000
104 IF I$="NORDEN" THEN 820
105 IF I$="SUEDEN" THEN 860
106 IF I$="WESTEN" THEN 900
107 IF I$="OSTEN" THEN 940
108 IF I$="HOCH" OR I$="RAUF" THEN 195
109 IF I$="RUNTER" THEN 185
110 IF I$="KLOPFE" OR I$="KLOPF" THEN 800
111 IF I$="KOMMANDOS" OR I$="HILFE" THEN 80
112 IF I$="INVENTAR" OR I$="INVENTORY" THEN 50
113 IF I$="SCHLAF" OR I$="SCHLAFE" THEN 700
114 IF I$="LOAD" OR I$="LADE" THEN 600
115 IF I$="SAVE" OR I$="SPEICHERE" THEN 650
116 IF I$="GRABE" OR I$="GRAB" THEN 1100
117 IF I$="SICHER" OR I$="SICHERN" THEN 3000
118 IF LEN(I$)>1 THEN 150
119 IF LEN(I$)=1 THEN 130
120 GOTO 150
121 PRINTSPC(1)"[197]RST [197]INGEBEN DANN [210]ETURN !
122 [137] 100
130 [139] I$[178]"N" [167] 820
131 [139] I$[178]"S" [167] 860
132 [139] I$[178]"W" [167] 900
134 [139] I$[178]"O" [167] 940
138 [139] I$[178]"R" [167] 185
139 [139] I$[178]"H" [167] 195
145 [153][166]1)" STR$IESE ATNBKUERZUNG VERSTEHE ICH NICHT !"
146 [137]100
150 [141] 500
152 [143] VERTEILUNG
153 [139] V$[178]"NIMM" [176] V$[178]"NEHME" [167] 300
154 [139] V$[178]"LIES" [176] V$[178]"LESE" [167] 370
155 [139] V$[178]"SCHLAGE" [176] V$[178]"SCHLAG" [167] 400
156 [139] V$[178]"INVENTAR" [176] V$[178]"INVENTORY" [167] 50
157 [139] V$[178]"HILFE" [176] V$[178]"KOMMANDOS" [167] 80
158 [139] V$[178]"BLICKE" [176] V$[178]"BLICK" [167] 1000
160 [139] V$[178]"GEBE" [176] V$[178]"GIB" [167] 450
162 [139] V$[178]"LOAD" [176] V$[178]"LADE" [167] 600
163 [139] V$[178]"SAVE" [176] V$[178]"SPEICHERE" [167] 650
165 [139] V$[178]"SCHLAF" [176]  V$[178]"SCHLAFE" [167] 700
166 [139] V$[178]"BENUTZ" [176] V$[178]"BENUTZE" [167] 720
169 [139] V$[178]"KLOPFE" [176] V$[178]"KLOPF" [167] 800
170 [139] V$[178]"TRINK" [176] V$[178]"TRINKE" [167] 1130
172 [139] V$[178]"FRAGE" [176] V$[178]"FRAG" [167] 220
173 [139] V$[178]"SAGE" [176] V$[178]"SAG" [167] 250
175 [139] V$[178]"GRAB" [176] V$[178]"GRABE" [167] 1100
177 [139] V$[178]"SICHER" [176] V$[178]"SICHERN" [167] 3000
178 [139] V$[178]"ISS" [176] V$[178]"ESSE" [167] 1130
180 [153][166]1)"RIGHT$RGENDWIE VERSTEHE ICH DICH NICHT !"
181 [137]100
185 [143] RUNTER
186 [139] A[178]7 [167] A[178]5:[137] 210
187 [139] A[178]4 [167] A[178]3:[137] 210
190 [153][166]1)"LEFT$IER GEHST NICHT RUNTER !":[137] 100
195 [143] HOCH
196 [139] A[178]5 [167] A[178]7:[137] 211
197 [139] A[178]3 [167] A[178]4:[137] 211
198 [153][166]1)"LEFT$IER GEHST NICHT RAUF !":[137] 100
210 [153][166]1)"STR$U GEHST NACH UNTEN !":[137] 1300
211 [153][166]1)"STR$U GEHST NACH OBEN !":[137] 1300
220 [143] FRAG
221 [139] A[178]1 [175] DB[178]1 [167] 1430
222 [139] A[178]15 [167] 1550
223 [139] A[178]18 [167] 1560
224 [139] A[178]21 [167] 1600
240 [153][166]1)"STR$U HAST VIELLEICHT ASCRAGEN.":[137] 100
250 [143] SAGE
252 [139] A[178]18 [175] O$[178]"MUPPETS" [167] 1570
253 [139] A[178]21 [167] 1600
290 [153][166]1)"CHR$ENAU DAS CONT SAGE WAIT ICH AUCH IMMER !":[137] 100
300 [143] NIMM
302 [139] A[178]1 [175] DD[178]1 [167] B[178]1:[137] 360
304 [139] A[178]7 [175] O[178]0 [167] O[178]1:[137] 360
355 [153][166]1)"STR$IESEN CHR$EGENSTAND SEHE ICH NICHT !":[137]100
360 [153][166]1)"STR$U NIMMST DAS (null)EIL AN DICH !":[141]10:[137]1000
370 [143] LIES
371 [139] A[178]12 [167] 1530
373 [139] N[178]1 [175] O$[178]"PUBLIC" [167] 1700
390 [153][166]1)"STR$AS KANNST DU NICHT LESEN !":[137] 100
400 [143] SCHLAG
402 [139] A[178]1 [175] DA[178]1 [167] 445
404 [139] A[178]8 [175] W[178]0 [167] 1500
440 [153][166]1)"STR$IES VERSTOESST GEGEN DIE CONT CHR$ENFER WAIT
442 PRINTSPC(1)"[203]ONFENSSIONEN !":GOTO 100
445 IF O$="WAECHTER" OR O$="WAERTER" THEN1410
446 GOTO 440
450 REM GIB
451 IF A=9 AND O$="WEIN" THEN 1520
452 REM
453 IF A=15 AND O$="GROSCHEN" THEN 1550
454 IF A=15 THEN 1550
456 IF A=21 AND O$="GROSCHEN" THEN 1580
457 IF A=1 AND O$="PUBLIC" THEN 485
474 IF A=9 AND W=1 THENPRINTSPC(1)"[214]ERSUCHS MAL MIT 'GIB WEIN' !":GOTO 100
475 IF A=16 THEN 1740
480 PRINTSPC(1)"[194]EHALT DEIN [218]EUG LIEBER !":GOTO 100
485 IF N=1 THEN 1590
487 PRINTSPC(1)"[196]U WILLST DOCH NICHT ETWA BETRUEGEN !":GOTO 100
499 END
500 FOR T=1 TO LEN(I$)
510 IF MID$(I$,T,1)=" " THEN 530
520 NEXT T:O$="":V$="":RETURN
530 V$=LEFT$(I$,T-1)
540 O$=RIGHT$(I$,LEN(I$)-T)
550 RETURN
600 REM LOAD
601 PRINTSPC(1)"[194]RAIN [208]ART [201]  [204]OAD [146]...
603 [133]"  ASCILE WAIT (null)AME ";C$
605 [159]1,8,4,"B1"[170]C$[170]",S,R"
607 [132]1,A,B,F,C,O,E,D,N,S,L,M,DA,DB,DC,DD,S,W,DM,Z
616 [139] I$[178]"GRAB" [176] I$[178]"GRABE" [167] 1700
620 [160]1:[141]10
621 [137]1000
650 [143] SAVE
651 [153][166]1)"PEEKRAIN (null)ART RIGHT$ CONT (null)AVE WAIT":R$[178][199](13)
653 [133]"  ASCILE WAIT (null)AME ";C$
655 [159]2,8,15,"S:B1"[170]C$[170]"":[160]2
656 [159]1,8,4,"B1"[170]C$[170]",S,W"
657 [152]1,A;R$;B;R$;F;R$;C;R$;O;R$;E;R$;D;R$;N;R$;S;R$;L
658 [152]1,M;R$;DA;R$;DB;R$;DC;R$;DD;R$;S;R$;W;R$;DM;R$;Z
670 [160]1:[141]10
671 [137]1000
700 [143] SCHLAF
718 [153][166]1)"STR$U SCHLAEFST EINE (null)UNDE...":[137] 100
720 [143] BENUTZE
721 [139] O$[178]"AXT" [167] 783
722 [139] O$[178]"TREPPE" [167] 785
723 [139] O$[178]"DREIZACK" [175] A[178]17 [167] 1630
780 [153][166]1)"STR$AS KANNST DU NICHT BENUTZEN.":[137] 100
783 [139] A[178]1 [175] B[178]1 [167] 1420
785 [153][166]1)"(null)OZU HABE ICH WOHL DIE (null)OMMANDOS 'R'
787 PRINTSPC(1)"'H' EINGBAUT ?":GOTO 100
800 REM KLOPFE
802 IF A=1 AND DA=0 THEN 1400
804 IF A=1 AND DA=0 THEN 1400
806 IF A=12 THEN 1540
818 PRINTSPC(1)"[196]U KLOPFST AN DEINEN [203]OPF !":GOTO 100
820 REM NORDEN
821 IF A=2 THENA=3:GOTO 856
822 IF A=4 THENA=5:GOTO 856
823 IF A=7 THENA=10:GOTO 856
825 IF A=8 THENA=9:GOTO 856
826 IF A=13 THEN A=14:GOTO 856
827 IF A=12 THEN A=13:GOTO 856
828 IF A=14 THEN A=17:GOTO 856
829 IF A=16 THEN A=20:GOTO 856
830 IF A=18 THEN A=15:GOTO 856
832 IF A=21 THEN A=12:GOTO 856
855 PRINTSPC(1)"[196]ORTHIN FUEHRT [158] KEIN [146] [215]EG.":GOTO100
856 PRINTSPC(1)"[196]U GEHST NACH [206]ORDEN...":GOTO 1300
857 PRINTSPC(1)"[196]U LAUEFST NACH [211]UEDEN...":GOTO 1300
858 PRINTSPC(1)"[196]U MARSCHIERST NACH [215]ESTEN.":GOTO 1300
859 PRINTSPC(1)"[196]U GEHST [210]ICHTUNG [207]STEN...":GOTO 1300
860 REM SUEDEN
861 IF A=3 THENA=2:GOTO 857
862 IF A=5 THENA=4:GOTO 857
863 IF A=10 THENA=7:GOTO 857
865 IF A=9 THENA=8:GOTO 857
866 IF A=14 THEN A=13:GOTO 857
867 IF A=13 THEN A=12:GOTO 857
868 IF A=17 THEN A=14:GOTO 857
869 IF A=20 THEN A=16:GOTO 857
870 IF A=15 THEN A=18:GOTO 857
871 GOTO 855
900 REM WESTEN
901 IF A=7 THENA=8:GOTO 858
903 IF A=10 THENA=9:GOTO 858
905 IF A=9 THEN A=11:GOTO 858
906 IF A=11 THENA=13:GOTO 858
907 IF A=13 THEN A=16:GOTO 858
909 IF A=15 THEN A=14:GOTO 858
910 IF A=1 AND DD=1 THEN A=2:GOTO 858
913 IF A=19 THEN A=15:GOTO 858
914 IF A=14 THEN A=20:GOTO 858
919 GOTO 855
940 REM OSTEN
941 IF A=8 THENA=7:GOTO 859
943 IF A=9 THENA=10:GOTO 859
945 IF A=11 THEN A=9:GOTO 859
946 IF A=13 THENA=11:GOTO 859
947 IF A=16 THEN A=13:GOTO 859
949 IF A=14 THEN A=15:GOTO 859
950 IF A=2 AND DD=1 THEN A=1:GOTO 859
953 IF A=15 THEN A=19:GOTO 859
954 IF A=20 THEN A=14:GOTO 859
955 GOTO 855
1000 REM RAUEME
1001 PRINT"[147]"
1004 PRINTSPC(1)"  -=> [196]AS [158] [204]EBEN [146] DES [194]RAIN ! <=-
1005 [153][166]1)"(null)ART RIGHT$ PEEKRAIN IN MID$ERUSALEM !
1006 FORI=1TO20:PRINT"--";:NEXT
1008 IF A=1 AND DD=1 THEN 2030
1009 IF A=1 AND DA=1 THEN 2020
1010 IF A=1 THEN 2000:REM KERKER
1011 IF A=2 THEN 2040
1012 IF A=3 THEN 2060
1014 IF A=4 THEN 2080
1017 IF A=5 THEN 2100
1023 IF A=7 THEN 2120
1025 IF A=8 THEN 2140
1026 IF A=9 THEN 2160
1027 IF A=10 THEN 2180
1029 IF A=11 THEN 2200:REM PALAST
1030 IF A=12 THEN 2220:REM CIRCUS
1032 IF A=13 THEN 2240
1033 IF A=14 THEN 2260
1034 IF A=15 THEN 2280
1035 IF A=16 THEN 2300
1036 IF A=17 THEN 2320:REM KREUZE
1037 IF A=18 THEN 2340
1038 IF A=19 THEN 2360
1040 IF A=20 THEN 2380
1041 IF A=21 THEN 2400
1050 A=1:GOTO 1000
1100 REM GRABE
1102 IF A=17 THEN 1110
1104 PRINTSPC(1)"[196]U GRAEBST EINWENIG IN DEINEN [212]ASCHEN."
1105 GOTO 100
1110 IF D=1 THEN 1120
1111 PRINTSPC(1)"[214]ERSUCHE ES MIT DEM [203]OMMANDO: [194]ENUTZE
1112 [137] 100
1120 [153][166]1)"STR$U GRAEBST UND GRAEBST UND GRAEBST,
1122 PRINTSPC(1)"UND FINDEST NEBEN EINPAAR UNWICHTIGEN
1123 [153][166]1)"CHR$OLDKLUMPEN DIE ATNRMEEKASSE !":E[178]1:[141] 10:[137] 1000
1130 [143] ISS/TRINKE
1132 [153][166]1)"RIGHT$N DIESEM (null)ART GIBT ES NOCH NICHTS
1134 PRINTSPC(1)"ZUM ESSEN/TRINKEN !":GOTO 100
1299 END
1300 FORI=1TO10:SI=54272
1303 FORII=0 TO 24:POKE SI+II,0:NEXT
1305 POKE SI+1,15:POKE SI+5,9:POKE 2+15,30
1307 POKE SI+24,15:POKE SI+4,129:POKE SI+4,65:POKE SI+4,129
1310 NEXTI:GOTO 1000
1400 PRINTSPC(1)"[196]U KLOPFST AN DIE [212]UER...":FORI=1TO1000:NEXT
1403 PRINTSPC(1)"[197]IN STUMMER [215]AECHTER OEFFNET SIE UND
1405 [153][166]1)"KOMMT HEREIN !":DA[178]1:[141]10:[137] 1000
1410 [153][166]1)"(null)IT LAUTEN CHR$EBRUELL STUERZT DU DICH
1412 PRINTSPC(1)"AUF DEN [215]AECHTER ! [196]IESER MACHT EINEN
1415 [153][166]1)"ATNNGST (null)CHREI ! (null)ND RENNT DANN LAUT
1416 PRINTSPC(1)"RUFEND '[201]CH KANN WIEDER SPRECHEN'
1418 [153][166]1)"DAVON.":DD[178]1:[141] 10:[137] 1000
1420 [153][166]1)"(null)IT DER ATNXT SCHNEIDEST DU DIE ASCESSELN
1422 PRINTSPC(1)"DES [193]LTEN DURCH UND HOLST IHN RUNTER.":DB=1
1424 GOSUB10:GOTO 1000
1430 PRINTSPC(1)"[196]U FRAGST DEN [205]ANN WIE ES NUN WEITER
1432 [153][166]1)"GEHEN SOLL ! VALR SAGT:SYS'(null)M ZU VERDUFTEN
1434 PRINTSPC(1)"BRAUCHST DU WOHL [199]ELD ? [200]IER HAST DU
1436 [153][166]1)"EINEN CHR$ROSCHEN GEHE DAMIT AUF DEN
1437 PRINTSPC(1)"[205]ARKT UND HOLE MIR DIE NEUE [208]UBLIC,
1438 [153][166]1)"DANN SEHEN WIR WEITER...'":S[178]1
1439 [141]10:[137] 1000
1500 [153][166]1)"ATNLS DU DEN (null)KLAVEN SCHLAGEN WILLST
1502 PRINTSPC(1)"RUTSCHST DU AUS UND FLIEGST HIN. [196]ER
1504 [153][166]1)"(null)KLAVE NIMMT NUN DEN (null)EIN UND GIBT
1506 PRINTSPC(1)"IHN DIR ! [197]R SAGT:[154]'[193]M FRUEHEN [205]ORGEN
1508 [153][166]1)"SCHON BESOFFEN. LEFT$IER HAST DU DAMIT DU
1510 PRINTSPC(1)"HIER RAUSKOMMST. [199]IB IHN DEM [215]AECHTER
1512 [153][166]1)"UND VERSCHWINDE HIER !'":[141]10:W[178]1:[137] 1000
1520 [139] W[178]1 [167] 1522
1521 [137] 452
1522 [153][166]1)"STR$U GIBST DEM ALTEN (null)AUEFER DEN (null)RUG
1524 PRINTSPC(1)"MIT DEM [215]EIN ! [197]R SAUEFT IHN UND
1525 [153][166]1)"FAELLT DANN UM. (null)ASS DIR DAS EINE
1526 PRINTSPC(1)"[204]EHRE SEIN ! [193]LKOHOL IST SCHAEDLICH !
1528 W[178]2:DM[178]1:[141]10:[137] 1000
1530 [153][166]1)"ATNUF DEM (null)CHILD STEHT 'PEEKEI CHR$EFAHR
1532 PRINTSPC(1)"3 MAL KLOPFEN !'":GOTO 100
1540 DX=DX+1
1542 IF DX=3 THEN DX=0:GOTO 1545
1543 PRINTSPC(1)"[196]U KLOPFST ZUM"DX"MAL AN DIE [212]UER.
1544 [137] 100
1545 [139] S[179][177]1 [167] DX[178]0:[137]1800
1546 [153][166]1)"STR$IE (null)UER GEHT AUF UND DU GEHST HINEIN.":A[178]21:[141]10:[137]1000
1550 [153][166]1)"SYS'STR$U WILLST WOHL DIE NEUE (null)UBLIC, HAT":DX[178]0
1552 [153][166]1)"DICH WOHL DER ATNLTE GESCHCHIKT ! STR$OCH
1553 PRINTSPC(1)"DIE GIBT ES HIER NICHT ! [199]EHE MAL ZUM
1554 [153][166]1)"(null)IRKUS DA GIBST NOCH WELCHE.'":[137] 100
1560 [153][166]1)"CONT'(null)EISST DU DEN DAS LENODEWORT WENN JA
1562 PRINTSPC(1)"DANN SAGE ES MIR !'":GOTO 100
1570 PRINTSPC(1)"[154]'[207]H DAS [195]ODEWORT, WENN DAS SO IST
1572 [153][166]1)"KOENNTE ICH DIR JA EIGENTLICH SAGEN
1574 PRINTSPC(1)"WO DIE [205]ONETEN DER [210]OMEER VERSTECKT
1575 [153][166]1)"SIND ! (null)IE SIND BEI DEN (null)REUZEN VER=
1576 PRINTSPC(1)"STECKT ! [200]IER HAST DU EINEN [196]REIZACK
1577 [153][166]1)"DAMIT MUSST DU DANACH GRABEN !'":D[178]1
1578 [153][166]1)"ATNEH (null)REUZE ? STR$IE VERSTEHST NUR PEEKAHN=
1579 PRINTSPC(1)"HOF ! ":GOTO 100
1580 IF S=1 THEN 1582
1581 GOTO 480
1582 PRINTSPC(1)"[196]U GIBST DEN [205]ANN DEINEN [199]ROSCHEN, ER
1583 [153][166]1)"GIBT DIR DAFUER DIE NEUE (null)UBLIC.":N[178]1:S[178]2:[137] 100
1590 [153][166]1)"'ATNH DIE NEUE (null)UBLIC ! (null)UN KOENNTE ICH
1592 PRINTSPC(1)"DIR JA EIN [195]ODEWORT SAGEN !'
1594 [153][166]1)"CHR$ENNNNAUUU LENHEF !"
1596 [153][166]1)"'ATNLSO DAS (null)ORT HEISST 'MUPPETS' !'":N[178]2:[137] 100
1600 [153][166]1)"SYS'LEFT$IER GIBTS NUR DIE (null)UBLIC, DIE ATN(null)(null)
1602 PRINTSPC(1)"WURDE NOCHT NICHT ERFUNDEN UND DAS
1603 [153][166]1)"64'ER HAT MIT (null)ESERBRIEFEN ZU TUN !'":[137] 100
1630 [139] D[178]1 [167] 1635
1632 [153][166]1)"RIGHT$CH WUERDE EINEN STR$REIZACK ZUM GRABEN
1634 PRINTSPC(1)"BENUTZEN !":GOTO 100
1635 PRINTSPC(1)"[196]U GRAEBST MIT DEM [196]REIZACK DURCH DAS
1636 [153][166]1)"VALRDREICH IN 5 (null)ETER TIEFE FINDEST DU
1638 PRINTSPC(1)"DIE [193]RMEEKASSE UND STECKST SIE EIN !":E=1:GOSUB 10:GOTO 1000
1700 PRINTSPC(1)"[196]U BLAETTERST DURCH DIE [208]UBLIC, BEI
1702 [153][166]1)"DEM PEEKERICHT '(null)ETER STR$IEHM (null)ROGRAMMIERER
1704 PRINTSPC(1)"DES [158] [202]AHRES [146]' BLEIBST DU HAENGEN !"
1705 PRINTSPC(1)"[206]ACH KURZEM LESEN BEKOMMST DU EINEN
1707 [153][166]1)"PRINT# (null)ACHKRAMPF WAIT UND LAUEFST WEITER !":[137] 100
1740 [139] E[178]1 [175] O$[178]"ARMEEKASSE" [167] 1760
1742 [139] E[178]1 [175] O$[178]"KASSE" [167] 1760
1743 [139] E[178]1 [175] O$[178]"GELD" [167] 1760
1745 [153][166]1)"(null)IE WAERS WENN DU IHM DIE ATNRMEEKASSE
1746 PRINTSPC(1)"DER [210]OEMER GIBST ?":GOTO 100
1760 PRINTSPC(1)"[196]U GIBST DEM [205]ANN DIE [193]RMEEKASSE UND
1762 [153][166]1)"ER LAESST DICH AN PEEKOARD !"
1767 [153][166]1)"STR$AS (null)CHIFF LEGT NUN AB UND FAEHRT IN
1768 PRINTSPC(1)"DEN 2 [208]ART DES [193]DVENTURES !"
1769 PRINT" [201]CH MEINE ES FAEHRT NACH [193]EGYPTEN !":GOSUB 10:GOSUB1770:GOTO1778
1770 PD=2:R$=CHR$(13)
1772 OPEN2,8,15,"S:BRAIN SCORE":CLOSE2
1773 OPEN1,8,4,"BRAIN SCORE,S,W"
1774 PRINT#1,F;R$;B;R$;C;R$;O;R$;E;R$;D;R$;N;R$;PD;R$;K;R$;S;R$;L;R$;M
1775 PRINT#1,W;R$;Z;R$;A;R$;LA;R$;LB;R$;LC;R$;LD;R$;LE;R$;LF;R$;DA;R$;GB
1776 PRINT#1,DC;R$;DD;R$;DM;R$;GA;R$;GB;R$;GC;R$;CJ;R$;GE
1777 CLOSE1:RETURN
1778 REM BRAIN
1785 PRINT"[147]"
1786 PRINTSPC"[204]OADING [194]RAIN [201][201]...[144]
1787 [151] 828,0
1790 [153]"STOPLOAD"[199](34);"BRAIN P.II LOAD";[199](34); ",8
1792 PRINT"[144] RUN"
1793 POKE 631,13:POKE 632,13:POKE 198,2:PRINT"";:END
1800 REM GEFAHR
1802 PRINTSPC(1)"[197]IN [205]ANN KOMMT HERAUS UND ALS ER SIEHT
1804 [153][166]1)"DAS DU KEINE SYS (null)OHLE WAIT HAST SCHLAEGT
1806 PRINTSPC(1)"ER DIR DIE [212]UER VOR DER [154] [206]ASE [146] ZU.":GOTO 100
2000 REM A=1
2003 PRINTSPC(1)"[196]U STEHST IN EINER [203]ERKER [218]ELLE IM
2005 [153][166]1)"(null)ALAST DES (null)ILATUS. ATNN DER (null)AND HAENGT
2006 PRINTSPC(1)"EIN ALTER [205]ANN DER ETWAS VON 'ELENDER
2007 [153][166]1)"CHR$UENSTLING' VOR SICH HER MURMELT.
2008 PRINTSPC(1)"[197]INE SCHWERE [200]OLZTUER VERSPERRT DIR
2010 [153][166]1)"DEN (null)EG NACH DRAUSSEN.
2012 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: KEINE !"
2018 GOTO 100
2020 REM DA=1
2021 PRINTSPC(1)"[214]OR DIR STEHT DER STUMME [215]AECHTER,
2023 [153][166]1)"ALS DU IHN BITTEST DICH FREI ZU LASSEN
2024 PRINTSPC(1)"SPUCKT ER DIR INS [199]ESICHT. [196]ARUEBER
2025 [153][166]1)"REGT SICH NUN DER ALTE AN DER (null)AND
2026 PRINTSPC(1)"WIEDER AUF.
2027 [153][166]1)"(null)AS NUN PEEKRAIN ?
2028 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: KEINE !":GOTO 100
2030 PRINTSPC(1)"[196]U STEHST VOR EINER [212]UER DIESE STEHT
2032 [153][166]1)"WEIT OFFEN. STR$ER (null)AERTER IST ABGEHAUEN.
2033 IF DB=0 THEN PRINTSPC(1)"[193]N DER [215]AND HAENGT DER ALTE [205]ANN.
2034 [139] DB[178]1 [167] [153][166]1)"(null)EBEN DIR STEHT DER ALTE (null)ANN.
2035 IF B=0 THEN PRINTSPC(1)"[193]M [194]ODEN LIEGT EINE  [193]XT [146]."
2037 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [215]ESTEN.
2038 [137] 100
2040 [153][166]1)"STR$U STEHST VOR DER (null)UER ZUR (null)ERKER
2042 PRINTSPC(1)"[218]ELLE. [196]ER [215]AECHTER RENNT IMMER NOCH
2043 [153][166]1)"LAUT SCHREIEND DURCH DIE CHR$EGEND.
2045 PRINTSPC(1)"[213]EBERALL HOERST DU GEQUAELTE [211]CHREIE.
2046 [153][166]1)"RIGHT$M (null)ORDEN SIEHST DU EINE (null)REPPE !
2048 PRINTSPC(1)"[210]ICHTUNGEN: [206]ORDEN,[207]STEN.":GOTO 100
2060 REM A=3
2061 PRINTSPC(1)"[196]U STEHST VOR EINER [212]REPPE, DIESE
2063 [153][166]1)"FUEHRT NACH OBEN AUS DEM (null)ERKER.
2065 PRINTSPC(1)"[196]U MUSST JETZT WOHL EINE [197]NTSCHEIDUNG
2067 [153][166]1)"TREFFEN. LEFT$OCH ODER (null)UEDEN, (null)OPF ODER
2068 PRINTSPC(1)"[218]AHL, [195][196][213] ODER [211][208][196], [194]IC [205]AEC ODER
2070 [153][166]1)"CHR$UMMIBAEREN, ATNMIGA ODER (null)UELLEIMER.
2073 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: HOCH UND [211]UEDEN.
2076 [137] 100
2080 [143] A=4
2082 [153][166]1)"VALRSTAUNLICH WIE LANG SICH SO EINE
2083 PRINTSPC(1)"[212]REPPE ZIEHEN KANN. [196]IE [210]OEMER WUSSTEN
2084 [153][166]1)"HALT NOCH WIE MAN BAUT. STR$IE LENHEPOS
2085 PRINTSPC(1)"[208]YRAMIDE STEHT HEUTE NOCH ! [193]EH [208]YR=
2086 [153][166]1)"AMIDE DAS WAREN DOCH DIE CHR$RIECHEN ODER
2088 PRINTSPC(1)"GAR DIE [211]IECHEN ?
2089 [153][166]1)"(null)A AUF ALLE ASCAELLE IST DIE (null)REPPE HIER
2090 PRINTSPC(1)"ZUR [197]NDE.
2091 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null),RUNTER.
2093 GOTO 100
2100 REM A=5
2102 PRINTSPC(1)"[207]H NEIN SCHON WIEDER EINE [212]REPPE,
2104 [153][166]1)"NICHTS GEGEN (null)REPPEN ABER EINEN (null)IFT
2105 PRINTSPC(1)"HAETTEN SICH DIE OLLEN [210]OEMER RUHIG
2106 [153][166]1)"LEISTEN KOENNEN. STR$IE SPINNEN DIE
2108 PRINTSPC(1)"[210]OEMER.
2110 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)UEDEN UND LEFT$OCH.
2112 GOTO 100
2120 REM A=6
2122 PRINTSPC(1)"[196]U STEHST NUN IM OESTLICHEN [208]ALAST
2123 [153][166]1)"ASCLUEGEL. LEFT$ABEN JA NICHT SCHLECHT GE=
2124 PRINTSPC(1)"LEBT DIE [210]OEMER. [196]OCH WIEVIEL [211]KLAVEN
2125 [153][166]1)"BEIM PEEKAU DIESER (null)WINGBURG ( KLINGT
2126 PRINTSPC(1)"GUT ODER ? [200]AB ICH AUS [212]ELL !) IHR
2127 [153][166]1)"(null)EBEN GELASSEN HABEN ?
2130 IF O=0 THENPRINTSPC(1)"[196]U [156] SIEHST: [146] EIN [207]ELLAEMPCHEN.
2134 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)UNTER,(null),(null).
2135 GOTO 100
2140 REM A=8
2141 PRINTSPC(1)"[196]U STEHST IN DER [197]MPFANGSHALLE, IM
2143 [153][166]1)"(null)ORDEN AM ATNUSGANG STEHT EIN (null)AECHTER.
2145 PRINTSPC(1)"[214]OR DIR STEHT DER [212]HRON DES [208]ILATUS
2146 [153][166]1)"DOCH VON DIESEM IST NICHTS ZU SEHEN.
2147 IF W=0 THENPRINTSPC(1)"[197]IN [211]KLAVE KOMMT MIT EINEM [203]RUG [215]EIN
2149 [139] W[178]0 [167][153][166]1)"AN DIR VORBEI GELAUFEN.
2150 IF W=0 THENPRINTSPC(1)"[196]U SIEHST:[211]KLAVEN,[215]EIN.
2152 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)ORDEN,(null)STEN.
2154 GOTO 100
2160 REM A=9
2161 IF DM=1 THEN 2170
2162 PRINTSPC(1)"[196]U STEHST AM [193]USGANG DES [208]ALASTES,
2164 [153][166]1)"EINE (null)ACHE VERSPERRT DIR DEN (null)EG. (null)IE
2165 PRINTSPC(1)"SAGT:'[197]NTWEDER DU RUECKST [194]OECKSTOFF
2167 [153][166]1)"RUEBER ODER DU KOMMST HIER NICHT
2168 PRINTSPC(1)"RAUS !'"
2169 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [211]UEDEN,[207]STEN.":GOTO 100
2170 PRINTSPC(1)"[196]U STEHST AM [193]USGANG DES [208]ALASTES,
2172 [153][166]1)"AM PEEKODEN LIEGT EINE (null)AECHTER UND SCH=
2174 PRINTSPC(1)"LAEFT SEINEN [210]AUSCH AUS. [201]M [215]ESTEN
2175 [153][166]1)"KANNST DU SCHON DEN (null)ARKTPLATZ VON
2176 PRINTSPC(1)"[202]ERUSALEM SEHEN.
2177 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN:(null),(null),(null).
2178 GOTO 100
2180 REM A=10
2181 PRINTSPC(1)"[196]U STEHST IM [215]ARTEZIMMER DES [208]ALASTES
2183 [153][166]1)"DAS WURDE GERADE NEU GEFLIESST. ATNLSO
2185 PRINTSPC(1)"ACHTE DARAUF DAS DU NICHT AUSRUTSCHST.
2186 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)UEDEN,(null)ESTEN.
2189 GOTO 100
2200 REM A=11
2201 PRINTSPC(1)"[196]U BLICKST AUF DEN [205]ARKTPLATZ VON
2203 [153][166]1)"MID$ERUSALEM. (null)EBEN DEM (null)ALAST SITZEN
2204 PRINTSPC(1)"EINPAAR [197]X-[204]EBRA [203]RANKE. [193]N DER [208]ALAST
2206 [153][166]1)"(null)AUER STEHT '(null)OEMER GEHEN NACH LEFT$AUSE'.
2207 PRINTSPC(1)"[206]ACH EINER [215]EILE WANDELST DU DIE [211]TUFEN
2208 [153][166]1)"HINUNTER AUF DEN (null)ARKTPLATZ.
2210 PRINTSPC(1)"[210]ICHTUNGEN: [215]ESTEN UND [207]STEN.":GOTO 100
2220 REM A=12
2221 PRINTSPC(1)"[196]U STEHST VOR DEM [218]IRKUS [205]INIMUS !
2222 [153][166]1)"(null)EIDER IST ER HEUTE GESCHLOSSEN,SCHADE
2223 PRINTSPC(1)"DENKST DU ! [193]N DER [197]INGANGSTUER HAENGT
2224 [153][166]1)"EIN (null)CHILD.
2225 PRINTSPC(1)"[210]ICHTUNG: [206]ORDEN.
2226 [137] 100
2240 [143] A=13
2241 [153][166]1)"STR$U STEHST IM (null)ENTRUM DER (null)TADT. RIGHT$M
2243 PRINTSPC(1)"[211]UEDEN IST DER [218]IRKUS, IM [206]ORDEN DIE
2245 [153][166]1)"ATNLTSTADT, IM (null)STEN DAS (null)ROMINENTEN=
2246 PRINTSPC(1)"VIERTEL UND IM [215]ESTEN DER [200]AFEN.
2247 [153][166]1)"MID$ERUSALEM HAT DOCH EINEN LEFT$AFEN, ODER ?
2248 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: ALLE MOEGLICHEN.
2250 [137] 100
2260 [143] A=14
2261 [153][166]1)"STR$U LAUEFST IN DIE ATNLTSTADT, IRGEDWO
2263 PRINTSPC(1)"HIER SOLL DIE [214]OLKS [198]RONT VON [202]UDAEA
2265 [153][166]1)"IHRE (null)ENTRALE HABEN. VALIN (null)EGION VON
2267 PRINTSPC(1)"[210]OEMERN LAUEFT AN DIE VORBEI. [197]INER
2268 [153][166]1)"VON IHNEN HAT EINEN (null)OCHLOEFFEL IN
2269 PRINTSPC(1)"DER [200]AND.
2270 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null),(null),(null),(null).
2273 GOTO 100
2280 REM A=15
2281 PRINTSPC(1)"[196]U STEHST IM [218]ENTRUM DER [193]LTSTADT,
2283 [153][166]1)"ENGE CHR$ASSEN FUEHREN DURCH SIE. (null)OR
2286 PRINTSPC(1)"DEM [218]EITUNGSLADEN MACHST DU HALT.
2287 [153][166]1)"STR$ER (null)ERKAUEFER SCHAUT DICH FRAGEND
2289 PRINTSPC(1)"AN."
2290 PRINTSPC(1)"[210]ICHTUNGEN: [211]UEDEN,[207]STEN UND [215]ESTEN.":GOTO 100
2300 REM A=16
2302 PRINTSPC(1)"[196]U STEHST IM [200]AFEN VON [202]ERUSALEM,
2304 [153][166]1)"AN EINEM (null)ISCH SITZT EIN WEISSHAARIGER
2306 PRINTSPC(1)"JUNGER [205]ANN. [213]ND NIMMT DAS [199]ELD DER
2308 [153][166]1)"(null)ASSAGIERE ENTGEGEN. ATNLS DU DICH AN
2310 PRINTSPC(1)"[194]OARD SCHLEICHEN WILLST SAGT ER DAS
2312 [153][166]1)"DIE (null)EBERFAHRT NACH ATNTHEN 100 (null)ERSER=
2313 PRINTSPC(1)"DOLLAR KOSTET.
2314 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)ORDEN UND (null)STEN.
2315 GOTO 100
2320 REM A=17
2321 PRINTSPC(1)"[196]U STEHST AUF DEM [203]REUZIEGUNGSPLATZ,
2323 [153][166]1)"DIE (null)REUZE SIND ALLE LEER.
2324 IF E=1 THENPRINTSPC(1)"[214]OR DIR IST EIN 5 [205]ETER TIEFES [204]OCH."
2325 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNGEN: [211]UEDEN.":GOTO 100
2340 REM A=18
2341 PRINTSPC(1)"[196]U STEHST VOR DER [218]ENTRALE DER [214][214][202],
2342 [153][166]1)"EIN ALTER (null)ANN SITZT VOR DER (null)UER UND
2343 PRINTSPC(1)"MURMELT ETWAS DAS ER BLIND,TAUB,STUMM
2344 [153][166]1)"SEI UND DAS HIER NICHT DIE (null)ENTRALE
2345 PRINTSPC(1)"WAER !"
2346 PRINTSPC(1)"[205]OEGLICHE [210]ICHTUNG: [206]ORDEN.":GOTO 100
2360 REM A=19
2361 PRINTSPC(1)"[215]ENN ES IN DIESEM [193]DVENTURE ETWA
2363 [153][166]1)"EINEN SINNLOSEN (null)RT GIBT, DANN IST ES
2365 PRINTSPC(1)"DIESER. [196]ESHALB IST [218]EIT EINPAAR
2367 [153][166]1)"CHR$RUESSE LOS ZU WERDEN. RIGHT$CH GRUESSE:
2368 PRINTSPC(1)"[196]ATA [200]OUSE, [205]ASTER [205][205] [211]OFT, [211]TARSOFT.
2369 [153][166]1)"(null)OEGLICHE (null)ICHTUNG: (null)ESTEN.":[137] 100
2380 [143] A=20
2382 [153][166]1)"LEFT$IER AN DIESER (null)TELLE, GENAU DA UND
2383 PRINTSPC(1)"NIRGENDS ANDERS BLEIBST DU STEHEN, UM
2385 [153][166]1)"AUF DAS NOCH UNVERSEUCHTE (null)ITTELMEER
2386 PRINTSPC(1)"ZU SCHAUEN. [193]UF DIESEN SIEHST DU EINEN
2387 [153][166]1)"ASCLUGZEUGTRAEGER."
2388 [153][166]1)"(null)OEGLICHE (null)ICHTUNGEN: (null)UEDEN,(null)STEN.
2389 PRINTSPC(1)"[213]M DICH NICHT ZU VERWIRREN MUSS ICH ZU
2390 [153][166]1)"GEBEN DAS ES KEIN ASCLUGZEUGTRAEGER IST.
2392 PRINTSPC(1)"[196]ER WAR JA NOCH GARNICHT ERFUNDEN, ES
2394 [153][166]1)"IST EINE PEEKOHRINSEL.
2396 GOTO 100
2400 REM A=21
2402 PRINTSPC(1)"[196]U STEHST IM [195]IRCUS, HIER STEIGT GE=
2404 [153][166]1)"RADE DIE ERSTE MID$ERUSALEMER LENOPY (null)ARTY,
2405 PRINTSPC(1)"VOR DIR IST EIN [211]TAND IM DER NEUSTEN
2406 [153][166]1)"(null)UBLIC (null)AERZ / ATNPRIL / 3 V.LENHR.
2410 PRINTSPC(1)"[196]ER [211]TANDBESITZER WARTET AUF DEINE
2412 [153][166]1)"PEEKESTELLUNG.
2415 PRINTSPC(1)"[210]ICHTUNG: [206]ORDEN.":GOTO 100
2416 GOTO 100
3000 REM SICHER
3002 PRINTSPC(1)"[196]ER [211]PIELSTAND WIRD NUN AUF DER [196]ISK
3004 [153][166]1)"GESPEICHERT UND KANN BEI EINEM NEUEN
3005 PRINTSPC(1)"[211]PIEL AM [193]NFANG NACH GELADEN WERDEN.
3006 [153][166]1)"STR$IES GESCHIEHT DANN CONT AUTOMATISCH WAIT !
3008 GOSUB10:GOSUB1770:GOTO 1000
3010 REM SCORE LOAD
3012 OPEN1,8,4,"BRAIN SCORE,S,R"
3013 INPUT#1,F,B,C,O,E,D,N,PD,K,S,L,M,W,Z,A,LA,LB,LC,LD,LE,LF,DA,DB,DC,DD,DM
3014 INPUT#1,GA,GB,GC,CJ,GE
3015 CLOSE1:RETURN
4000 GOSUB3010
4001 IF A=0 THENA=1
4002 IF PD>1 THEN 4010
4004 GOTO 1000
4010 PRINTSPC(1)"[201]RGENDWIE BIST DU HIER IM FALSCHEN
4012 [153][166]1)"TEIL DES CHR$AMES !":[141]10
4014 [139] PD[178]2 [167][147]"BRAIN P.II LOAD",8,1:[138]
4015 [139] PD[178]3 [167][147]"BRAIN P.II LOAD",8,1:[138]
4016 [139] PD[178]4 [176] PD[178]5 [167][147]"BRAIN P.III LOAD",8,1:[138]
4020 PD[178]1:A[178]1:[137] 1000